home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / Modula 2-menus / EasyMenus.DEF next >
Encoding:
Modula Definition  |  1987-06-11  |  3.5 KB  |  78 lines  |  [TEXT/ttxt]
  1. (*$T+,$F+*)
  2.  
  3. (*---------------------------------------------------------------*)
  4. (*        EasyMenus 1.1 Alpha For Use With TDI Modula-2          *)
  5. (*---------------------------------------------------------------*)
  6. (* This is the Definition Module for Easy Menus.  All data       *)
  7. (* structures are exported dequalified. To use these functions   *)
  8. (* and data structures, just IMPORT them into your TDI Modula-2  *)
  9. (* programs.                                                     *)
  10. (*---------------------------------------------------------------*)
  11. (* Copyright (c) Joe Pillera, June 1987.  All rights reserved.   *)
  12. (*---------------------------------------------------------------*)
  13.  
  14. DEFINITION MODULE EasyMenus;
  15.  
  16.   FROM Strings IMPORT String;
  17.   
  18.   CONST
  19.     NoKey = '#';       (* Menu item has no keyboard equivalent. *)
  20.     Line  = "(----";   (* Menu item is only a line.             *)
  21.  
  22.   TYPE
  23.     (* Use when calling the function "AppendToMenu".            *)
  24.     MenuItemStyle  = (normal, bold, italic, underline, outline, shadow);
  25.  
  26.     (* Use when calling the functions SetMenuEnable and  *)
  27.     (* SetItemEnable.                                    *)
  28.     MenuEnableStatus = (enabled, disabled);
  29.   
  30.   (* Procedures *)
  31.   (* Create a menu with title "MenuBarStr" at location MenuBar *)
  32.   PROCEDURE  CreateMenu ( MenuBar     : INTEGER;
  33.                           MenuBarStr  : String );
  34.                           
  35.   (* Insert an menu item "MenuItemStr" at menu number MenuBar. *)
  36.   PROCEDURE  AppendToMenu ( MenuBar     : INTEGER;
  37.                             MenuItemStr : String;
  38.                             KeyEquiv    : CHAR;
  39.                             Style       : MenuItemStyle );
  40.   
  41.   (* Enable or disable a particular menu item.                 *)
  42.   PROCEDURE  SetItemEnable ( MenuBar  : INTEGER;
  43.                              MenuItem : INTEGER;
  44.                              Status   : MenuEnableStatus     );
  45.   
  46.   (* Enable or disable an ENTIRE menu bar.                     *)
  47.   PROCEDURE  SetMenuEnable ( MenuBar : INTEGER;
  48.                              Status  : MenuEnableStatus );
  49.                                                 
  50.   (* Put/remove a check mark next to a menu item.              *)
  51.   PROCEDURE CheckMenuItem ( MenuBar  : INTEGER;
  52.                             MenuItem : INTEGER;
  53.                             Checked  : BOOLEAN );
  54.                         
  55.   (* Update the menu bar after a menu creation or change.      *)
  56.   PROCEDURE  UpdateMenuBar;
  57.    
  58.   (* Set up the Font Menu AUTOMATICALLY at the next menu bar!  *)
  59.   PROCEDURE  SetUpFontMenu;
  60.   
  61.   (* Process a desk accessory call AUTOMATICALLY for the user. *)
  62.   (* The value DAid is obtained from "MenuItem" when the       *)
  63.   (* function UserEvent returns MenuBar = 1.                   *)
  64.   PROCEDURE  HandleDA ( DAid : INTEGER );
  65.   
  66.   (* Process a Cut, Copy, Paste or Clear Clipboard request     *)
  67.   (* AUTOMATICALLY for the user.  The value EditId is obtained *)
  68.   (* from "MenuItem" when the function UserEvent returns the   *)
  69.   (* value MenuBar = 3.                                        *)
  70.   PROCEDURE  HandleEdit ( EditId : INTEGER );
  71.   
  72.   (* Implement the main event loop.  Look for both mouse-down  *)
  73.   (* and key-down user requests.  If there was an event, set   *)
  74.   (* the function to TRUE, and its formal parameters [MenuBar  *)
  75.   (* and MenuItem] to the menu selection from the user         *)                                                
  76.   PROCEDURE  UserEvent ( VAR MenuBar, MenuItem : INTEGER ) : BOOLEAN;
  77.             
  78. END EasyMenus.